
10 LET Lan_Area = 0

20 LET text = "Set Language Area"
30 SYSTEM ScreenString(30,50,text)

50 FOREIGN Lan_Area = OneCard_ExtIndex()
60 IF Lan_Area == 0 THEN 500 ELSE 70
70 IF Lan_Area == 1 THEN 600 ELSE 80
80 IF Lan_Area == 2 THEN 700 ELSE 90
90 IF Lan_Area == 3 THEN 800 ELSE 1000



500 FOREIGN SetLanguageArea(1)
510 GOTO 900

600 FOREIGN SetLanguageArea(2)
610 GOTO 900

700 FOREIGN SetLanguageArea(8)
710 GOTO 900

800 FOREIGN SetLanguageArea(11)
810 GOTO 900

900 FOREIGN Ret = OneCard_FlgSet(1) 
910 LET LCDPrint = "Reset Success!!"
915 LET I = 0
920 DrawBackColor(0,0,1080,480,0,255,0,0)
921 SYSTEM ScreenString(20, 160, LCDPrint) 
922 IF I == 150 THEN 930 ELSE 924
924 LET I=I+1 
925 GOTO 920
930 FOREIGN OneCardTest(1)
940 GOTO 1000


1000 END
RUN